home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 June / EnigmA AMIGA RUN 08 (1996)(G.R. Edizioni)(IT)[!][issue 1996-06][EARSAN CD VII].iso / earcd / amos / eaissu3b.lha / Source_Code / UN_Window_Demo.AMOS / UN_Window_Demo.amosSourceCode
AMOS Source Code  |  1995-12-30  |  443b  |  28 lines
  1. Cls 13
  2. For W=1 To 3
  3.    Wind Open W,(W-1)*96,50,10,10,1
  4.    Paper W+3 : Pen W+6 : Clw 
  5.    Print "Window";W
  6. Next W
  7. Window 1 : Print "This is 1"
  8. PAUSE
  9. WIPE
  10. Window 2 : Print "This is 2"
  11. PAUSE
  12. WIPE
  13. Window 3 : Print "This is 3" : Print "Bye for now!"
  14. PAUSE
  15. WIPE
  16. End 
  17. Rem ***
  18. Procedure WIPE
  19.    Def Scroll 1,0,0 To 320,200,1,0
  20.    For P=1 To 20
  21.       Vscroll 2
  22.    Next P
  23. End Proc
  24. Rem ***
  25. Procedure PAUSE
  26.    While Mouse Key<>1 : Wend 
  27.    Wait 20
  28. End Proc